
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvDriverGroup
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	21/3/2549 14:40:29	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvDriverGroup
#Region "Internal member variables"
    Private _GroupId As Int16
    Private _GroupName As String
    Private _GroupDesc As String
    Private _CostDay As Decimal
    Private _CostHoliday As Decimal
    Private _OtDay As Decimal
    Private _OtHoliday As Decimal
    Private _GroupStatus As Byte
#End Region

    Public Sub New()
        _GroupId = Nothing
        _GroupName = Nothing
        _GroupDesc = Nothing
        _CostDay = Nothing
        _CostHoliday = Nothing
        _OtDay = Nothing
        _OtHoliday = Nothing
        _GroupStatus = Nothing
    End Sub

    Public Sub New(ByVal GroupId As Int16, _
       ByVal GroupName As String, _
       ByVal GroupDesc As String, _
       ByVal CostDay As Decimal, _
       ByVal CostHoliday As Decimal, _
       ByVal OtDay As Decimal, _
       ByVal OtHoliday As Decimal, _
       ByVal GroupStatus As Byte)
        _GroupId = GroupId
        _GroupName = GroupName
        _GroupDesc = GroupDesc
        _CostDay = CostDay
        _CostHoliday = CostHoliday
        _OtDay = OtDay
        _OtHoliday = OtHoliday
        _GroupStatus = GroupStatus
    End Sub

#Region "Property"

    Public Property GroupId() As Int16
        Get
            Return _GroupId
        End Get
        Set(ByVal value As Int16)
            _GroupId = value
        End Set
    End Property


    Public Property GroupName() As String
        Get
            Return _GroupName
        End Get
        Set(ByVal value As String)
            _GroupName = value
        End Set
    End Property


    Public Property GroupDesc() As String
        Get
            Return _GroupDesc
        End Get
        Set(ByVal value As String)
            _GroupDesc = value
        End Set
    End Property


    Public Property CostDay() As Decimal
        Get
            Return _CostDay
        End Get
        Set(ByVal value As Decimal)
            _CostDay = value
        End Set
    End Property


    Public Property CostHoliday() As Decimal
        Get
            Return _CostHoliday
        End Get
        Set(ByVal value As Decimal)
            _CostHoliday = value
        End Set
    End Property


    Public Property OtDay() As Decimal
        Get
            Return _OtDay
        End Get
        Set(ByVal value As Decimal)
            _OtDay = value
        End Set
    End Property


    Public Property OtHoliday() As Decimal
        Get
            Return _OtHoliday
        End Get
        Set(ByVal value As Decimal)
            _OtHoliday = value
        End Set
    End Property


    Public Property GroupStatus() As Byte
        Get
            Return _GroupStatus
        End Get
        Set(ByVal value As Byte)
            _GroupStatus = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvDriverGroups
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	21/3/2549 14:40:29	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvDriverGroups
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvDriverGroup
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvDriverGroup)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvDriverGroup)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvDriverGroup)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class

